home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Franz PD
/
Franz PD Disk #114 (1991-03)(Amiga User Group Deutschland e.V.).zip
/
Franz PD Disk #114 (1991-03)(Amiga User Group Deutschland e.V.).adf
/
3D-Funktion_2
/
3DFunkt2
< prev
next >
Wrap
Text File
|
1989-07-03
|
2KB
|
80 lines
REM 3D-Funktionen V1.2 H.Dörries 1990
memory all,chip,fast
if all<500000 | chip<300000
print
print "Sorry - zu wenig RAM"
end
endif
setblack 1
load 1,"here:HVP/3DFunkt2.anim"
display 1
fade 1,1,3
new 2,1
copy 1,2
loadanim 6,"here:HVP/3DFunkt2.anim"
abort 0 : pointer 1
load 5,"here:HVP/Schalter.pic" :REM Schablonen!
adone=0: halt=0
buf=2
speed 1
tempo=1
REM ----------------------------------------------------------------
REM Animation
100 pause tempo
if halt : goto 110 : endif
if adone : skipanim 6,buf,abs,rel,adone : endif
anim 6,buf,abs,rel,adone
display buf
buf=3-buf: blitdest buf
REM Abfrage
110 ifmouse xm,ym
if xm=-1: goto 100: endif
if xm>8 & xm<122
if ym<222 & ym>206 : REM ENDE
blitdest 1: blit 5,128,206,8,206,114,16
blitdest 2: blit 5,128,206,8,206,114,16
blitdest buf
fade 0,buf,4
execute a,"here:c/assign here:"
end
endif
if ym<206 & ym>190 : REM STOP-WEITER
halt=1-halt
if halt
blitdest 1: blit 5,128,190,8,190,114,16
blitdest 2: blit 5,128,190,8,190,114,16
else
blitdest 1: blit 5,8,190,8,190,114,16
blitdest 2: blit 5,8,190,8,190,114,16
endif
blitdest buf
goto 100
endif
if ym<190 & ym>174 :REM PLUS-MINUS
if xm<64
blitdest 1: blit 5,128,174,8,174,57,16
blit 5,65,174,65,174,57,16
blitdest 2: blit 5,128,174,8,174,57,16
blit 5,65,174,65,174,57,16
blitdest buf
tempo=tempo-1
if tempo<0 : tempo=0 : endif
else
blitdest 1: blit 5,185,174,65,174,57,16
blit 5,8,174,8,174,57,16
blitdest 2: blit 5,185,174,65,174,57,16
blit 5,8,174,8,174,57,16
blitdest buf
tempo=tempo+1
endif
goto 100
endif
endif
goto 100